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HI [Return to Main Page] 

Porting Sweet 16 by Carsten Strotmann (carsten@strotmann.de) 
TUp to Source Code Repository! 



Sweet 16 is a metaprocessor or "pseudo microprocessor" implemented in 6502 assembly language. Originallywritten by Steve Wozniak and used in the Apple II, Sweet 16 can 
also be ported to other 6502-based systemsto provide useful 16-bit functionality. This article includes the source code for Sweet 16, along with a brief history, programming 
instructions, and notes to help port it. 

This material was provided by Carsten Sfrotmann, who has built a working Atari Port of Sweet 16 . 

• Porting Sweet 16 

• The Story of Sweet 16 

• Sweet 16 - Introduction 

• Sweet 16: A Pseudo 16-bit Microprocessor 

o Description 

o Instruction Descriptions 

o Sweet 16 Opcode Summary 

o Register Instructions 

o Theory of Operation 

o When is an RTS really a JSR? 

o Opcode Subroutines 

o Memory Allocation 

o User Modifications 

o Notes from Apple II System Description 

• Sweet 16 S-C Macro Assembler Text 

o Programming Model 
o Sweet 16 Opcodes 

Porting Sweet 16 

Sweet 16 is not a teen-magazine, nor is it a brand name for candy. It is areally tricky und useful extension to a 6502 computer. It was originallywritten by Apple's Steve "Woz" 
Wozniak and can be found in the ROM of someAPPLE ][ Computers. Sweet 16 is a kind of virtual machine that gives the 6502programmer a 16 bit extension to the CPU. Sweet 
16 creates sixteen 16-bitregisters/pointers (in zero page) and new opcodes to use this registers.Although Sweet 16 is not as fast as standard 6502 code, it can reduce the codesize 
of your programms and ease programming. 

This text focuses only on the task of porting Sweet 1 6 to another 6502 basedcomputer. Information on the useage and the interals of Sweet 1 6 can be foundin the documentation 
by Steve Wozniak and the article by Dick Sedgewick. 

Porting Sweet 16 is easy, if you know what to take into account. There arethree main issues: 

1 . the location of the zero page registers 

2. the base address of the code in memory 

3. the save and restore routines 

Let's start with the zero page registers 

Sweet 16 needs 32 zero page addresses for the 16 registers (R0-R15). hi theoriginal Apple Version this registers are from $0 to $lF,in the ATARI Versionthe locations $E0-$FF 
are used. You can place this registers anywhere in thezeropage, but it have to be a contiguous range. 

The base address of the code 

Sweet 16 uses a tricky indirect 8-Bit jump to access the routines for eachopcode. This saves some space in the code. But for this hack to work, someprecaution have to be taken 
for the code. All code from the label "SET" to thelabel "RTN" have to be assembled in one 6502 Page ($100/256 Bytes). If youmind this, everything should work fine. 

The "save" and "restore" routines 

The Apple ][ Version of Sweet 16 uses the ROM-internal "save" and "restore"routines to save and restore all processor registers and flags. If your systemhas such routines in 
ROM, fine, just use them. If not, you have to add fheseroutines to your programm. Here is a template: 



SAVE 

STA ACC 
STX XREG 
STY YREG 
PHP 
PLA 

STA STATUS 

CLD 

RTS 

RESTORE 

LDA STATUS 
PHA 

LDA ACC 
LDX XREG 
LDY YREG 
PLP 
RTS 

ACC .BYTE 
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XREG .BYTE 
YREG .BYTE 
STATUS .BYTE 



Thats all. Porting Sweet 16 is easy and straightforward. I hope to see someSweet 16 enhanced 6502 source in the future. If someone is searching for anice project, extending an 
open-source 6502 Assembler (like CA65 from CC65)with the Sweet 16 opcodes would be one :) 

The Story of Sweet 16 

While writing Apple BASIC, I ran into the problem of manipulating the 16 bit pointer data and its arithmetic in an 8 bit machine. 

My solution to this problem of handling 1 6 bit data, notably pointers, with an 8 bit microprocessor was to implement a non-existent 1 6 bit processor in software, interpreter fashion, 
which I refer to as SWEET16. SWEET16 contains sixteen internal 16 bit registers, actually the first 32 bytes in main memory, labelled R0 through R15. R0 is defined as the 
accumulator, R15 as the program counter, and R14 as a status register. R13 stores the result of all COMPARE operations for branch testing. The user acceses SWEET16 with a 
subroutine call to hexadecimal address F689. Bytes stored after the subroutine call are thereafter interpreted and executed by SWEET16. One of SWEET16's commands returns 
the user back to 6502 mode, even restoring the original register contents. 

Implemented in only 300 bytes of code, SWEET16 has a very simple instruction set tailored to operations such as memory moves and stack manipulation. Most opcodes are only 
one byte long, but since she runs approximately ten times slower than equivalent 6502 code, SWEET 16 should be employed only when code is at a premium or execution is not. As 
an example of her usefulness, I have estimated that about 1 K byte could be weeded out of my 5K byte Apple-II BASIC interpreter with no observable performance degradation 
by selectively applyingSWEET16. [] 



Article 1684 of comp . sys . apple2 .programmer : 
Newsgroups : comp . sys . apple 2 . programmer 

Path : amdahl . ut s . amdahl . com ! amdahl ! amd ! decwrl ! sdd . hp . com ! elroy . jpl .nasa.gov! swrinde ! ihnp4 . ucsd . edu ! library . ucla . edu ! csulb . edu ! csus . edu ! ne 

From: sheldon@netcom.com (Sheldon Simms) 

Subject: Source code (Sweet 16) 

Mess age- ID : <sheldonCLz3qM . 85r@netcom. com> 

Organization: NETCOM On-line Communication Services (408 241-9760 guest) 
Date: Tue, 1 Mar 1994 06:37:33 GMT 
Lines: 264 



Well maybe this should go to comp . sources . apple2 but it's not too long 
and in my mind it's part of the thread on learning assembly language 
programming. It's an opportunity to learn from Woz himself. 

-Sheldon 



APPLE-II PSEUDO MACHINE 
INTERPRETER 



COPYRIGHT (C) 1977 
APPLE COMPUTER, INC 



ALL RIGHTS RESERVED 



TITLE: SWEET 16 INTERPRETER 



ROL 


EQU 


$0 


ROH 


EQU 


$1 


R14H 


EQU 


$1D 


R15L 


EQU 


$1E 


R15H 


EQU 


$1F 


SAVE 


EQU 


SFF4A 


RESTORE 


EQU 


$FF3F 



ORG $F689 



AST 32 



JSR SAVE /PRESERVE 6502 REG CONTENTS 
PLA 

STA R15L ; INIT SWEET 1 6 PC 

PLA ; FROM RETURN 

STA R15H /ADDRESS 

SW16B JSR SW16C /INTERPRET AND EXECUTE 

JMP SW16B /ONE SWEET1 6 INSTR. 

SW16C INC R15L 

BNE SW16D / INCR SWEET 1 6 PC FOR FETCH 

INC R15H 

SW16D LDA >SET /COMMON HIGH BYTE FOR ALL ROUTINES 

PHA /PUSH ON STACK FOR RTS 

LDY $0 

LDA (R15L),Y /FETCH INSTR 

AND $F /MASK REG SPECIFICATION 

ASL /DOUBLE FOR TWO BYTE REGISTERS 

TAX /TO X REG FOR INDEXING 

LSR 

EOR (R15L),Y /NOW HAVE OPCODE 

BEQ TOBR / IF ZERO THEN NON-REG OP 
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STX 


R14H 




LSR 






LSR 






LSR 






TAY 






LDA 


0PTBL- 


2 


PHA 






RTS 






INC 


R15L 




BNE 


T0BR2 




INC 


R15H 




LDA 


BRTBL, 


X 


PHA 






LDA 


R14H 




LSR 






RTS 






PLA 






PLA 






JSR 


RESTORE 


JMP 


(R15L) 




LDA 


(R15L) 




STA 


ROH, X 




DEY 






LDA 


(R15L) 




STA 


ROL, X 




TYA 






SEC 






ADC 


R15L 




STA 


R15L 




BCC 


SET2 




INC 


R15H 




RTS 






DFB 


SET-1 




DFB 


RTN-1 




DFB 


LD-1 




DFB 


BR-1 




DFB 


ST-1 




DFB 


BNC-1 




DFB 


LDAT-1 




DFB 


BC-1 




DFB 


STAT-1 




DFB 


BP-1 




DFB 


LDDAT- 


1 


DFB 


BM-1 




DFB 


STDAT- 


1 


DFB 


BZ-1 




DFB 


POP-1 




DFB 


BNZ-1 




DFB 


STPAT- 


1 


DFB 


BM1-1 




DFB 


ADD-1 




DFB 


BNM1-1 




DFB 


SUB-1 




DFB 


BK-1 




DFB 


POPD-1 




DFB 


RS-1 




DFB 


CPR-1 




DFB 


BS-1 




DFB 


INR-1 




DFB 


NUL-1 




DFB 


DCR-1 




DFB 


NUL-1 




DFB 


NUL-1 




DFB 


NUL-1 





/INDICATE "PRIOR RESULT REG" 

/OPCODE* 2 TO LSB ' S 

;T0 Y REG FOR INDEXING 
; LOW ORDER ADR BYTE 
;ONTO STACK 
;GOTO REG-OP ROUTINE 

; INCR PC 

; LOW ORDER ADR BYTE 
;ONTO STACK FOR NON-REG OP 
/"PRIOR RESULT REG" INDEX 
/PREPARE CARRY FOR BC, BNC . 
;GOTO NON-REG OP ROUTINE 
;POP RETURN ADDRESS 

; RESTORE 6502 REG CONTENTS 
/RETURN TO 6502 CODE VIA PC 
; HIGH ORDER BYTE OF CONSTANT 



;LOW ORDER BYTE OF CONSTANT 
;Y REG CONTAINS 1 
; ADD 2 TO PC 



; ix 
; o 
; 2X 
; 1 
; 3X 

; 2 

; 4X 

;3 
; 5X 
; 4 
; 6X 
; 5 
; 7X 

; 6 
; 8X 
; 7 
; 9X 
; 8 
; AX 
; 9 
; BX 



; DX 

;c 

;EX 

;D 

;FX 

;E 

; UNUSED 
;F 



* FOLLOWING CODE MUST BE 

* CONTAINED ON A SINGLE PAGE ! 



SET 


BPL 


SETZ 


/ALWAYS TAKEN 


LD 


LDA 


ROL, X 




BK 


EQU 


*-l 






STA 


ROL 






LDA 


ROH, X 


; MOVE RX TO RO 




STA 


ROH 






RTS 






ST 


LDA 


ROL 






STA 


ROL, X 


;MOVE RO TO RX 




LDA 


ROH 






STA 


ROH, X 






RTS 






STAT 


LDA 


ROL 




STAT2 


STA 


(ROL, X) 


/STORE BYTE INDIRECT 




LDY 


$0 




STAT3 


STY 


R14H 


/INDICATE RO IS RESULT NEG 


INR 


INC 


ROL, X 






BNE 


INR2 


/ INCR RX 




INC 


ROH, X 




INR2 


RTS 






LDAT 


LDA 


(ROL, X) 


/LOAD INDIRECT (RX) 




STA 


ROL 


/ TO RO 




LDY 


$0 






STY 


ROH 


/ ZERO HIGH ORDER RO BYTE 




BEQ 


STAT 3 


/ALWAYS TAKEN 


POP 


LDY 


$0 


/HIGH ORDER BYTE = 
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BEQ 


POP2 


; ALWAYS TAKEN 


POPD 


JSR 


DCR 


; DECR RX 




LDA 


(ROL, X) 


;POP HIGH ORDER BYTE @RX 




TAY 




;SAVE IN Y REG 


P0P2 


JSR 


DCR 


; DECR RX 




LDA 


(ROL, X) 


; LOW ORDER BYTE 




STA 


ROL 


; TO RO 




STY 


ROH 




P0P3 


LDY 


$0 


/INDICATE RO AS LAST RESULT 




STY 


R14H 






RTS 






LDDAT 


JSR 


LDAT 


; LOW ORDER BYTE TO RO , INCR 




LDA 


(ROL, X) 


/HIGH ORDER BYTE TO RO 




STA 


ROH 






JMP 


INR 


; INCR RX 


STDAT 


JSR 


STAT 


/STORE INDIRECT LOW ORDER 




LDA 


ROH 


/BYTE AND INCR RX . THEN 




STA 


(ROL, X) 


/STORE HIGH ORDER BYTE. 




JMP 


INR 


/ INCR RX AND RETURN 


STPAT 


JSR 


DCR 


/DECR RX 




LDA 


ROL 






STA 


(ROL, X) 


/STORE RO LOW BYTE @RX 




JMP 


POP3 


/INDICATE RO AS LAST RESULT 


DCR 


LDA 


ROL, X 






BNE 


DCR2 


/DECR RX 




DEC 


ROH, X 




DCR2 


DEC 


ROL, X 






RTS 






SUB 


LDY 


$0 


/RESULT TO RO 




CPR 


SEC 


/NOTE Y REG = 13*2 FOR CPR 




LDA 


ROL 






SBC 


ROL, X 






STA 


ROL, Y 


/RO-RX TO RY 




LDA 


ROH 






SBC 


ROH, X 




SUB2 


STA 


ROH, Y 






TYA 




/LAST RESULT REG* 2 




ADC 


$0 


/CARRY TO LSB 




STA 


R14H 






RTS 






ADD 


LDA 


ROL 






ADC 


ROL, X 






STA 


ROL 


/RO+RX TO RO 




LDA 


ROH 






ADC 


ROH, X 






LDY 


$0 


/RO FOR RESULT 




BEQ 


SUB2 


/FINISH ADD 


BS 


LDA 


R15L 


/NOTE X REG IS 12*2! 




JSR 


STAT2 


/PUSH LOW PC BYTE VIA R12 




LDA 


R15H 






JSR 


STAT2 


/PUSH HIGH ORDER PC BYTE 


BR 


CLC 






BNC 


BCS 


BNC2 


/NO CARRY TEST 


BR1 


LDA 


(R15L) , Y 


/DISPLACEMENT BYTE 




BPL 


BR2 






DEY 






BR2 


ADC 


R15L 


/ ADD TO PC 




STA 


R15L 






TYA 








ADC 


R15H 






STA 


R15H 




BNC2 


RTS 






BC 


BCS 


BR 






RTS 






BP 


ASL 




/DOUBLE RESULT-REG INDEX 




TAX 




/TO X REG FOR INDEXING 




LDA 


ROH, X 


/TEST FOR PLUS 




BPL 


BR1 


/BRANCH IF SO 




RTS 






BM 


ASL 




/DOUBLE RESULT-REG INDEX 




TAX 








LDA 


ROH, X 


/TEST FOR MINUS 




BMI 


BR1 






RTS 






BZ 


ASL 




/DOUBLE RESULT-REG INDEX 




TAX 








LDA 


ROL, X 


/TEST FOR ZERO 




ORA 


ROH, X 


/ (BOTH BYTES) 




BEQ 


BR1 


/BRANCH IF SO 




RTS 






BNZ 


ASL 




/DOUBLE RESULT-REG INDEX 




TAX 








LDA 


ROL, X 


/TEST FOR NON-ZERO 




ORA 


ROH, X 


/ (BOTH BYTES) 




BNE 


BR1 


/BRANCH IF SO 




RTS 






BM1 


ASL 




/DOUBLE RESULT-REG INDEX 




TAX 








LDA 


ROL, X 


/CHECK BOTH BYTES 




AND 


ROH, X 


/FOR $FF (MINUS 1) 




EOR 


$FF 






BEQ 


BR1 


/ BRANCH IF SO 




RTS 






BNM1 


ASL 




/DOUBLE RESULT-REG INDEX 
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NUL 
RS 



TAX 






LDA 


ROL, X 




AND 


ROH, X 


/CHECK BOTH BYTES FOR NO SFF 


EOR 


Sff 




BNE 


BRl 


; BRANCH IF NOT MINUS 1 


RTS 






LDX 


$18 


;12*2 FOR R12 AS STACK POINTER 


JSR 


DCR 


;DECR STACK POINTER 


LDA 


(ROL, X) 


;POP HIGH RETURN ADDRESS TO PC 


STA 


R15H 




JSR 


DCR 


; SAME FOR LOW ORDER BYTE 


LDA 


(ROL, X) 




STA 


R1SL 




RTS 






JMP 


RTNZ 





W. Sheldon Simms 
she 1 don @ net com . com 



Newt's Friend / Jack Kemp for President 
Freedom implies responsibility 



Article 1685 of comp . sys . apple2 . programmer : 
Newsgroups : comp . sy s . apple 2 . programmer 

Path : amdahl . ut s . amdahl . com ! amdahl ! amd ! decwrl ! sdd . hp . com ! elroy . jpl .nasa.gov! swrinde ! ihnp4 .ucsd.edu! library.ucla. edu !csulb.edu!csus .eduine 

From: sheldon@netcom.com (Sheldon Simms) 

Subject: Sweet 16 description 

Message-ID: <sheldonCLz3tB. 8C4@netcom. com> 

Organization: NETCOM On-line Communication Services (408 241-9760 guest) 
Date: Tue, 1 Mar 1994 06:39:11 GMT 
Lines: 992 

Well since I posted the source, here's what it does for anyone who 
might not know. . . 



Sweet 16 - Introduction 

by Dick Sedgewick 

Sweet 16 is probably the least used and least understood seed in the Apple ][. 

In exactly the same sense that Integer and Applesoft Basics are languages, SWEET 16 is a language. Compared to the Basics, however, it would be classed as low level with a 
strong likeness to conventional 6502 Assembly language. 

To use SWEET 16, you must learn the language - and to quote "WOZ", "The opcode list is short and uncomplicated". "WOZ" (Steve Wozniak), of course is Mr. Apple, and the 
creator of SWEET 16. 

SWEET 16 is ROM based in every Apple ][ from $F689 to $F7FC. It has it's own set of opcodes and instruction sets, and uses the SAVE and RESTORE routines from the 
Apple Monitor to preserve the 6502 registers when in use, allowing SWEET 16 to be used as a subroutine. 

It uses the first 32 locations on zero page to set up its 16 double byte registers, and is therefore not compatible with Applesoft Basic without some additional efforts. 

The original article, "SWEET 16: The 6502 Dream Machine", first appeared in Byte Magazine, November 1977 and later in the original "WOZ PAK". The article is included here 
and again as test material to help understand the use and implementation of SWEET 16. 

Examples of the use of SWEET 16 are found in the Programmer's Aid #1, in the Renumber, Append, and Relocate programs. The Programmer's Aid Operating Manual contains 
complete source assembly listings, indexed on page 65. 

The demonstration program is written to be introductory and simple, consisting of three parts: 

1 . Integer Basic Program 

2. Machine Language Subroutine 

3. SWEET 16 Subroutine 

The task of the program will be to move data. Parameters of the move will be entered in the Integer Basic Program. 

The "CALL 768" ($300) at line 120, enters a 6502 machine language subroutine having the single purpose of entering SWEET 16 and subsequently returning to BASIC (addresses 
$300, $301, $302, and $312 respectively). The SWEET 16 subroutine of course performs the move, and is entered at Hex locations $303 to $311 (see listing Number 3). 

After the move, the screen will display three lines of data, each 8 bytes long, and await entry of a new set of parameters. The three lines of data displayed on the screen are as 
follows: 

. Line 1 : The first 8 bytes of data starting at $800, which is the fixed source data to be moved (in this case, the string A$). 
• Line 2: The first 8 bytes of data starting at the hex address entered as the destination of the move (high order byte only). 
. Line 3: The first 8 bytes of data starting at $0000 (the first four SWEET 16 registers). 

The display of 8 bytes of data was chosen to simplify the illustration of what goes on. 

Integer Basic has its own way of recording the string A$. Because the name chosen for the string "A$" is stored in 2 bytes, a total of five housekeeping bytes precede the data 
entered as A$, leaving only three additional bytes available for display. Integer Basic also adds a housekeeping byte at the end of a string, known as the "string terminator". 
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Consequently, for convenience purposes of the display, and to see the string terminator as the 8th byte, the string data entered via the keyboard should be limited to two characters, 
and will appear as the 6fh and 7th bytes. Additionally, parameters to be entered include the number of bytes to be moved. A useful range for this demonstration would be 1-8 
inclusive, but of course 1-255 will work. 

Finally, the starting address of the destination of the move must be entered. Again, for simplicity, only the high-order byte is entered, and the program allows a choice between 
Decimal 9 and high-order byte of program pointer 1, to avoid unnecessary problems (in this demonstration enter a decimal number between 9 and 144 for a 48K APPLE). 

The 8 bytes of data displayed starting at $00 will enable one to observe the condition of the SWEET 16 registers after a move has been accomplished, and thereby understand how 
the SWEET 16 program works. 

From the article "SWEET 16: A 6502 Dream Machine", remember that SWEET 16 can establish 16 double byte registers starting at $00. This means that SWEET 16 can use the 
first 32 addresses on zero page. 

The "events" occurring in this demonstration program can be studied in the first four SWEET 16 registers. Therefore, the 8 byte display starting at $0000 is large enough for this 
purpose. 

These four registers are established as R0, Rl, R2, R3: 

R0 $0000 s 0001 -SWEET 16 accumulator 

Rl $0002 s 0003 -Source address 

R2 $0004 s 0005 -Destination address 

R3 $0006 s 0007 -Number of bytes to move 

R14 $001C s 001D -Prior result register 

R15 $001E & 001F -SWEET 16 Program counter 

Additionally, an examination of registers R14 and R15 will extend and understanding of SWEET 16, as fully explained in the "WOZ" text. Notice that the high order byte of R14, 
(located at $ ID) contains $06, and is the doubled register specification (3X2=$06). R15, the SWEET 16 program counter contains the address of the next operation as it did for 
each step during execution of the program, which was $0312 whenexecution ended and the 6502 code resumed. 

To try a sample ran, enter the Integer Basic program as shown in Listing #1. Of course, REM statements can be omitted, and line 10 is only helpful if the machine code is to be 
stored on disk. Listing #2 must also be entered starting at $300. 

NOTE: A 6502 disassembly does not look like listing #3, but the SOURCEROR disassembler would create a correct disassembly. 

Enter "RUN" and hit RETURN 

Enter "12" and hit RETURN (A$ - A$ string data) 

Enter "18" and hit RETURN (high-order byte of destination) 

The display should appear as follows: 

$0800-Cl 40 00 10 08 Bl B2 IE (SOURCE) 
$0A00-C1 40 00 10 08 Bl B2 IE (Dest.) 
$0000-lE 00 08 08 08 OA 00 00 (SWEET 16) 

NOTE: The 8 bytes stored at $0A00 are identical to the 8 bytes starting at $0800, indicating that an accurate move of 8 bytes length has been made. They are moved one byte at a 
time starting with token CI and ending with token IE. If moving less than 8 bytes, the data following the moved data would be whatever existed at those locations before the move. 

The bytes have the following significance: 

A Token$ 



CI 40 


00 


10 08 


Bl B2 


IE 


1 

VN 


1 

DSP 


1 

NVA 


DATA DATA 


String 
Terminator 


The SWEET 16 registers are as shown: 






low high 
$0000 IE 00 




low high 
08 08 


low high 
08 OA 


low high 
00 00 


1 

register 

R0 

(acc) 




1 

register 

Rl 

(source) 


register 
R2 
(dest) 


register 

R3 
(#bytes) 



The low order byte of RO, the SWEET 16 accumulator, has $1E in it, the last byte moved (the 8th). 

The low order byte of the source register Rl started as $00 and was incremented eight times, once for each byte of moved data. 

The high order byte of the destination register R2 contains $0A, which was entered at 10 (the variable) and poked into the SWEET 16 code. The low-order byte of R2 was 
incremented exactly like Rl. 

Finally, register R3, the register that stores the number of bytes to be moved, has been poked to 8 (the variable B) and decremented eight times as each byte got moved, ending up 
$0000. 

By entering character strings and varying the number of bytes to be moved, the SWEET 16 registers can be observed and the contents predicted. 

Working with this demonstration program, and study of the text material will enable you to write SWEET 16 programs that perform additional 16 bit manipulations. The unassigned 
opcodes mentioned in the "WOZ Dream Machine" article should present a most interesting opportunity to "play". 
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SWEET 16 as a language - or tool - opens a new direction to Apple ][ owners without spending a dime, and it's been there all the time. 



"Apple-ites" who desire to learn machine language programming, can use SWEET 16 as a starting point. With this text material to use, and less opcodes to learn, a user can quickly 
be effective. 



Listing #1 



10 PRINT " [ D ] BLOAD SWEET": REM CTRL D 

20 CALL - 936: DIM A $ (10) 

30 INPUT "ENTER STRING A $ " , A $ 

40 INPUT "ENTER # BYTES " , B 

50 IF NOT B THEN 40 : REM AT LEAST 1 

60 POKE 778 , B : REM POKE LENGTH 

70 INPUT "ENTER DESTINATION " , A 

80 IF A > PEEK (203) - 1 THEN 70 

90 IF A < PEEK (205) + 1 THEN 70 

100 POKE 776 , A : REM POKE DESTINATION 

110 M = 8 : GOSUB 160 : REM DISPLAY 

120 CALL 768 : REM GOTO $0300 

130 M = A : GOSUB 160 : REM DISPLAY 

140 M = : GOSUB 160 : REM DISPLAY 

150 PRINT : PRINT : GOTO 30 

160 POKE 60 , : POKE 61 , M 

170 CALL -605 : RETURN : REM XAM8 IN MONITOR 



Listing #2 



300:20 89 F6 11 00 08 12 00 00 13 00 00 41 52 
F3 07 FB 00 60 



Listing #3 
SWEET 16 



$300 


20 


89 


F6 


JSR 


$303 


1 1 


00 


08 


SET 


$306 


12 


00 


00 


SET 
A 


$309 


13 


00 


00 


SET 
B 


$30C 


4 1 






LD 


$30D 


52 






ST 


$30E 


F3 






DCR 


$30F 


07 






BNZ 


$311 


00 






RTN 


$312 


60 






RTS 



$F689 

Rl source address 

R2 destination address 

R3 length 

@R1 
@R2 
R3 

$30C 



Data will be poked from the Integer Basic program: 

"A" from Line 100 

"B" from Line 60 



SWEET 16: A Pseudo 16 Bit Microprocessor 

by Steve Wozniak 
Description: 

While writing APPLE BASIC for a 6502 microprocessor, I repeatedly encountered a variant of MURPHY'S LAW. Briefly stated, any routine operating on 16-bit data will require 
at least twice the code that it should. Programs making extensive use of 16-bit pointers (suchas compilers, editors, and assemblers) are included in this category. In my case, even 
the addition of a few double-byte instructions to the 6502 would have only slightly alleviated the problem. What I really needed was a 6502/RCA 1800 hybrid - an abundance of 
16-bit registers and excellent pointer capability. 



My solution was to implement a non-existant (meta) 16-bit processor in software, interpreter style, which I call SWEET 16. 



SWEET 16 is based on sixteen 16-bit registers (R0-15), which are actually 32 memory locations. R0 doubles as the SWEET 16 accumulator (ACC), R15 as the program counter 
(PC), and R14 as the status register. R13 holds compare instruction results and R12 is the subroutine return stack pointer if SWEET 16 subroutines are used. All other SWEET 16 
registers are at the user's unrestricted disposal. 

SWEET 16 instructions fall into register and non-register categories. The register ops specify one of the sixteen registers to be used as either a data element or a pointer to data in 
memory, depending on the specific instruction. For example INR R5 uses R5 as data and ST @R7 uses R7 as a pointer to data in memory. Except for the SET instruction, register 
ops take one byte of code each. The non-register ops are primarily 6502 style branches with the second byte specifying a +/-127 byte displacement relative to the address of the 
following instruction. Providing that the prior register op result meets a specified branch condition, the displacement is added to the SWEET 16 PC, effecting a branch. 

SWEET 16 is intended as a 6502 enhancement package, not a stand alone processor. A 6502 program switches to SWEET 16 mode with a subroutine call and subsequent code 
is interpreted as SWEET 16 instructions. The nonregister op RTN returns the user program to 6502 mode after restoring the internal register contents (A, X, Y, P, and S). The 
following example illustrates how to use SWEET 16. 



300 B9 00 02 
303 C9 CD 
305 DO 09 



LDA IN,Y 
CMP #"M" 
BNE NOMOVE 



; get a char 
- "m" for move 
;No. Skip move 
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307 


20 


89 F6 


JSR 


SW16 


;Yes, call SWEET 16 


30A 


41 


MLOOP 


LD 


BR1 


;R1 holds source 


30B 


52 




ST 


@R2 


;R2 holds dest. addr 


30C 


F3 




DCR 


R3 


;Decr. length 


30D 


07 


FB 


BNZ 


MLOOP 


; Loop until done 


30F 


00 




P.TK 




; Return to 6502 mode 


310 


C9 


C 5 NOMOVE 


CMP 


#"E" 


; "E" char? 


312 


DO 


13 


BEQ 


EXIT 


;Yes, exit 


314 


C8 




INY 




; No, cont . 



NOTE: Registers A, X, Y, P, and S are not disturbed by SWEET 16. 
Instruction Descriptions: 

The SWEET 16 opcode listing is short and uncomplicated. Excepting relative branch displacements, hand assembly is trivial. All register opcodes are formed by combining two Hex 
digits, one for the opcode and one to specify a register. For example, opcodes 15 and 45 both specify register R5 while codes 23, 27, and 29 are all ST ops. Most register ops are 
assigned in complementary pairs to facilitate remembering them. Therefore, LD ans ST are opcodes 2N and 3N respectively, while LD @ and ST @ are codes 4N and 5N. 

Opcodes to C (Hex) are assigned to the thirteen non-register ops. Except for RTN (opcode 0), BK (OA), and RS (0B), the non register ops are 6502 style branches. The 
second byte of a branch instruction contains a +1-121 byte displacement value (in two's complement form)relative to the address of the instruction immediately following the branch. 

If a specified branch condition is met by the prior register op result, the displacement is added to the PC effecting a branch. Except for the BR (Branch always) and BS (Branch to a 
Subroutine), the branch opcodes are assigned in complementary pairs, rendering them easily remembered for hand coding. For example, Branch if Plus and Branch if Minus are 
opcodes 4 and 5 while Branch if Zero and Branch if NonZero? are opcodes 6 and 7. 

SWEET 16 Opcode Summary: 

Register OPS- 



In 


SET 


Rn 


Constant (Set) 


2n 


LD 


Rn 


(Load) 


3n 


ST 


Rn 


(Store) 


4n 


LD 


8Rn 


(Load Indirect) 


5n 


ST 


8Rn 


(Store Indirect) 


6n 


LDD 


8Rn 


(Load Double Indirect) 


7n 


STD 


8Rn 


(Store Double Indirect 


8n 


POP 


8Rn 


(Pop Indirect) 


9n 


STP 


8Rn 


(Store POP Indirect) 


An 


ADD 


Rn 


(Add) 


Bn 


SUB 


Rn 


(Sub) 


Cn 


POPD 


8Rn 


(Pop Double Indirect) 


Dn 


CPR 


Rn 


(Compare) 


En 


INR 


Rn 


( Increment) 


Fn 


DCR 


Rn 


(Decrement) 



Non-register OPS- 



00 


RTN 




(Return 


to 6502 mode) 


01 


BR 


ea 


(Branch 


always ) 


02 


BNC 


ea 


(Branch 


if No Carry) 


03 


BC 


ea 


(Branch 


if Carry) 


04 


BP 


ea 


(Branch 


if Plus) 


05 


BM 


ea 


(Branch 


if Minus) 


06 


BZ 


ea 


(Branch 


if Zero) 


07 


BNZ 


ea 


(Branch 


if NonZero) 


08 


BM1 


ea 


(Branch 


if Minus 1) 


09 


BNM1 


ea 


(Branch 


if Not Minus 1) 


OA 


BK 




(Break) 




0B 


RS 




(Return 


from Subroutine) 


0C 


BS 


ea 


(Branch 


to Subroutine) 


0D 






(Unassigned) 


0E 






(Unassigned) 


OF 






(Unassigned) 



Register Instructions: 

SET: 

SET Rn,Constant [ In Low High ] 

The 2-byte constant is loaded into Rn (n=0 to F, Hex) andbranch conditions set accordingly. The carry is cleared. 
EXAMPLE: 

15 34 AO SET R5 $A034 ;R5 now contains $A034 

LOAD: 
LD Rn [ 2n ] 

The ACC (R0) is loaded from Rn and branch conditions setaccording to the data transferred. The carry is cleared andcontents of Rn are not disturbed. 
EXAMPLE: 
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15 34 AO SET 
2 5 LD 



R5 $A034 
R5 



;ACC now contains $A034 



STORE: 
ST Rn [ 3n ] 

The ACC is stored into Rn and branch conditions set accordingto the data transferred. The carry is cleared and the ACCcontents are not disturbed. 
EXAMPLE: 



25 
36 



LD R5 
ST R6 



; Copy the contents 
;of R5 to R6 



LOAD INDIRECT: 
LD @Rn [ 4n ] 

The low-order ACC byte is loaded from the memory locationwhose address resides in Rn and the high-order ACC byte iscleared. Branch conditions reflect the final ACC 
contentswhich will always be positive and never minus 1. The carryis cleared. After the transfer, Rn is incremented by 1. 

EXAMPLE 



15 34 AO SET R5 $A034 
45 LD @R5 



; ACC is loaded from memory 

; location $A034 

;R5 is incr to $A035 



STORE INDIRECT: 



ST @Rn [ 5n ] 



The low-order ACC byte is stored into the memory locationwhose address resides in Rn. Branch conditions reflect the2-byte ACC contents. The carry is cleared. After the 
transferRn is incremented by 1. 

EXAMPLE: 



15 34 AO SET R5 $A034 

16 22 90 SET R6 $9022 
45 LD @R5 

56 ST @R6 



;Load pointers R5, R6 with 
;$A034 and $9022 
;Move byte from $A034 to $9022 
;Both ptrs are incremented 



LOAD DOUBLE-BYTE INDIRECT: 
LDD @Rn [ 6n ] 

The low order ACC byte is loaded from memory location whoseaddress resides in Rn, and Rn is then incremented by 1. Thehigh order ACC byte is loaded from the memory 
location whoseaddress resides in the incremented Rn, and Rn is againincremented by 1. Branch conditions reflect the final ACCcontents. The carry is cleared. 

EXAMPLE: 

15 34 AO SET R5 $A034 ; The low-order ACC byte is loaded 

65 LDD @R6 ; f rom $A034, high-order from 

;$A035, R5 is incr to $A036 

STORE DOUBLE-BYTE INDIRECT: 



STD @Rn [ 7n ] 

The low-order ACC byte is stored into memory locationwhose address resides in Rn, and Rn is the incrementedby 1. The high-order ACC byte is stored into the memorylocation 
whose address resides in the incremented Rn, and Rnis again incremented by 1. Branch conditions reflect the ACCcontents which are not disturbed. The carry is cleared. 

EXAMPLE: 



15 34 AO 

16 22 90 
65 

76 



SET R5 $A034 

SET R6 $9022 

LDD @R5 

STD @R6 



; Load pointers R5, R6 

;with $A034 and $9022 

;Move double byte from 

;$A034-35 to $9022-23. 

;Both pointers incremented by 2. 



POP INDIRECT: 



POP @Rn [ 8n ] 



The low-order ACC byte is loaded from the memory locationwhose address resides in Rn after Rn is decremented by l,and the high order ACC byte is cleared. Branch 
conditionsreflect the final 2-byte ACC contents which will always bepositive and never minus one. The carry is cleared. BecauseRn is decremented prior to loading the ACC, 
single bytestacks may be implemented with the ST @Rn and POP @Rn ops(Rn is the stack pointer). 

EXAMPLE: 



15 34 AO 
10 04 00 



SET 
SET 



R5 
R0 



$A034 

4 



; Init stack pointer 
; Load 4 into ACC 
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55 






ST 


@R5 




;Push 4 onto stack 


10 


05 


00 


SET 


R0 


5 


;Load 5 into ACC 


55 






ST 


@R5 




;Push 5 onto stack 


10 


06 


00 


SET 


R0 


6 


;Load 6 into ACC 


55 






ST 


@R5 




;Push 6 onto stack 


85 






POP 


@R5 




;Pop 6 off stack into 


85 






POP 


@R5 




;Pop 5 off stack 


85 






POP 


@R5 




;Pop 4 off stack 



STORE POP INDIRECT: 



STP @Rn [ 9n ] 

The low-order ACC byte is stored into the memory locationwhose address resides in Rn after Rn is decremented by 1 .Branch conditions will reflect the 2-byte ACC contents 
whichare not modified. STP @Rn and POP @Rn are used together tomove data blocks beginning at the greatest address andworking down. Additionally, single-byte stacks may 
beimplemented with the STP @Rn ops. 

EXAMPLE: 



14 


34 


AO 


SET 


R4 


$A034 


; Init pointers 


15 


22 


90 


SET 


R5 


$9022 




84 






POP 


@R4 




; Move byte from 


95 






STP 


8R5 




;$A033 to $9021 


84 






POP 


@R4 




; Move byte from 


95 






STP 


@R5 




;$A032 to $9020 



ADD: 

ADD Rn [ An ] 

The contents of Rn are added to the contents of ACC (R0),and the low-order 16 bits of the sum restored in ACC. thel7th sum bit becomes the carry and the other branch 
conditions reflect the final ACC contents. 

EXAMPLE: 

10 34 76 SET R0 $7634 ; Init R0 (ACC) and Rl 

11 27 42 SET Rl $4227 

Al ADD Rl ;Add Rl (sum=B85B, C clear) 

AO ADD R0 ;Double ACC (R0) to $70B6 

; with carry set . 

SUBTRACT: 
SUB Rn [ Bn ] 

The contents of Rn are subtracted from the ACC contents byperforming a two's complement addition: 
ACC = ACC + Rn + 1 

The low order 16 bits of the subtraction are restored in theACC, the 17th sum bit becomes the carry and other branchconditions reflect the final ACC contents. If the 16-bit 
unsigned ACC contents are greater than or equal to the 16-bitunsigned Rn contents, then the carry is set, otherwise it iscleared. Rn is not disturbed. 

EXAMPLE: 



10 34 76 SET R0 $7634 

11 27 42 SET Rl $4227 
Bl SUB Rl 



;Init R0 (ACC) 

; and Rl 

; subtract Rl 

; (diff=$340D with c set) 
;clears ACC. (R0) 



POP DOUBLE-BYTE INDIRECT: 



POPD @Rn [ Cn ] 



Rn is decremented by 1 and the high-order ACC byte is loadedfrom the memory location whose address now resides in Rn. Rn isagain decremented by 1 and the low-order 
ACC byte is loaded fromthe corresponding memory location. Branch conditions reflect thefinal ACC contents. The carry is cleared. Because Rn isdecremented prior to loading 
each of the ACC halves, double-bytestacks may be implemented with the STD @Rn and POPD @Rn ops(Rn is the stack pointer). 

EXAMPLE: 



15 34 AO 
10 12 AA 

75 

10 34 BB 

75 
C5 
C5 



SET 
SET 
STD 
SET 
STD 



R5 

R0 

@R5 

R0 

@R5 



POPD @R5 
POPD @R5 



$A034 
$AA12 



$BB34 



; Init stack pointer 
;Load $AA12 into ACC 
;Push $AA12 onto stack 
;Load $BB34 into ACC 
;Push $BB34 onto stack 
;Pop $BB34 off stack 
;Pop $AA12 off stack 



COMPARE: 
CPR Rn [ Dn ] 
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The ACC (R0) contents are compared to Rn by performing the 16bit binary subtraction ACC-Rn and storing the low order 16difference bits in R13 for subsequent branch tests. 
If the 16bit unsigned ACC contents are greater than or equal to the 16bit unsigned Rn contents, then the carry is set, otherwise Ms cleared. No other registers, including ACC and 
Rn, aredisturbed. 

EXAMPLE: 



15 34 AO SET R5 $A034 

16 BF AO SET R6 $ AOBF 
BO LOOP1 SUB R0 

75 STD 8R5 

2 5 LD R5 

D6 CPR R6 

02 FA BNC L00P1 



; Pointer to memory 
; Limit address 
;Zero data 
; clear 2 locations 
; increment R5 by 2 
; Compare pointer R5 
;to limit R6 
;loop if C clear 



INCREMENT: 
INR Rn [ En ] 

The contents of Rn are incremented by 1. The carry is clearedand other branch conditions reflect the incremented value. 
EXAMPLE: 



15 34 AO 


SET 


R5 


BO 


SUB 


R0 


55 


ST 


@R5 


E5 


INR 


R5 


55 


ST 


@R5 



$A034 ; (Pointer) 

;Zero to R0 
;Clr Location $A034 
;Incr R5 to $A036 
;Clrs location $A036 
; (not $A035) 



DECREMENT: 



DCR Rn [ Fn ] 

The contents of Rn are decremented by 1 . The carry is clearedand other branch conditions reflect the decremented value. 
EXAMPLE: (Clear 9 bytes beginning at location A034) 



15 34 AO SET R5 $A034 

14 09 00 SET R4 9 

BO SUB R0 

55 LOOP2 ST 8R5 

F4 DCR R4 

07 FC BNZ LOOP2 



;Init pointer 
; Init counter 
;Zero ACC 
; Clear a mem byte 
; Decrement count 
;Loop until Zero 



Non-Register Instructions: 



RETURN TO 6502 MODE: 
RTN00 

Control is returned to the 6502 and program execution continuesat the location immediately following the RTN instruction. the6502 registers and status conditions are restored to 
theiroriginal contents (prior to entering SWEET 16 mode). 

BRANCH ALWAYS: 

BRea[()l d] 

An effective address (ea) is calculated by adding the signeddisplacement byte (d) to the PC. The PC contains the addressof the instruction immediately following the BR, or the 
addressof the BR op plus 2. The displacement is a signed two'scomplement value from -128 to +127. Branch conditions are notchanged. 

NOTE: The effective address calculation is identical to thatfor 6502 relative branches. The Hex add & Subtract features ofthe APPLE ][ monitor may be used to calculate 
displacements. 



d = 


$80 


ea 


= PC 


+ 


2 




128 


d = 


$81 


ea 


= PC 


+ 


2 




127 


d = 


$FF 


ea 


= PC 


+ 


2 




1 


d = 


$00 


ea 




+ 


2 


+ 





d = 


$01 


ea 


= PC 


+ 


2 


+ 


1 


d = 


$7E 


ea 


= PC 


+ 


2 


+ 


126 


d = 


$7F 


ea 


= PC 


+ 


2 


+ 


127 



EXAMPLE: 

$300: 01 50 BR $352 
BRANCH IF NO CARRY: 
BNC ea [ 02 d ] 
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A branch to the effective address is taken only is the carry isclear, otherwise execution resumes as normal with the nextinstruction. Branch conditions are not changed. 



BRANCH IF CARRY SET: 



BC ea [ 03 d ] 



A branch is effected only if the carry is set. Branch conditionsare not changed. 



BRANCH IF PLUS: 



BP ea [ 04 d ] 



A branch is effected only if the prior 'result' (or mostrecently transferred dat) was positive. Branch conditions arenot changed. 



EXAMPLE: (Clear mem from A034 to A03F) 



15 34 AO 
14 3F AO 
BO 
55 

24 
D5 

4 FA 



SET R5 $A034 

SET R4 $A03F 

SUB R0 

ST 8R5 

LD R4 

CPR R5 

BP LOOP3 



; Init pointer 
; Init limit 

; Clear mem byte 
; Increment R5 
; Compare limit 
;to pointer 
;Loop until done 



BRANCH IF MINUS: 



BM ea [ 05 d ] 



A branch is effected only if prior 'result' was minus (negative,MSB = 1). Branch conditions are not changed. 



BRANCH IF ZERO: 



BZ ea [ 06 d ] 



A Branch is effected only if the prior 'result' was zero. Branchconditions are not changed. 



BRANCH IF NONZERO 



BNZ ea [ 07 d ] 



A branch is effected only if the priot 'result' was non-zeroBranch conditions are not changed. 



BRANCH IF MINUS ONE 



BM1 ea [ 08 d ] 



A branch is effected only if the prior 'result' was minus one($FFFF Hex). Branch conditions are not changed. 



BRANCH IF NOT MINUS ONE 



BNM1 ea [ 09 d ] 



A branch effected only if the prior 'result' was not minus 1. Branch conditions are not changed. 



BREAK: 



BK [ OA ] 



A 6502 BRK (break) instruction is executed. SWEET 16 may bere-entered non destructively at SW16d after correcting thestack pointer to its value prior to executing the BRK. 



RETURN FROM SWEET 16 SUBROUTINE: 



RS [ 0B ] 



RS terminates execution of a SWEET 16 subroutine and returns to theSWEET 16 calling program which resumes execution (in SWEET 16 mode).R12, which is the SWEET 16 
subroutine return stack pointer, isdecremented twice. Branch conditions are not changed. 



BRANCH TO SWEET 16 SUBROUTINE: 



BS ea [ 0c d ] 



A branch to the effective address (PC + 2 + d) is taken andexecution is resumed in SWEET 16 mode. The current PC is pushedonto a SWEET 16 subroutine return address 
stack whose pointer isR12, and R12 is incremented by 2. The carry is cleared and branchconditions set to indicate the current ACC contents. 



EXAMPLE: (Calling a 'memory move' subroutine to move A034-A03Bto 3000-3007) 

15 34 AO SET R5 $A034 ; Init pointer 1 
14 3B AO SET R4 $A03B ; Init limit 1 

16 00 30 SET R6 $3000 ; Init pointer 2 

hlip://www. 6502.org/sotirLe/iiiicrprciers/sweeil 6. htm#Sweet_16_S_C_Macro_Assembler_Tex 



www. 650 2. org: Source: I'tiriiiig Sweet 16 



11/5/04 10:25 PM 



oc 


15 




BS 


MOVE 


;Call move subroutine 


45 




MOVE 


LD 


@R5 


;Move one 


56 






ST 


@R6 


; byte 


24 






LD 


R4 




D5 






CPR 


R5 


;Test if done 


04 


FA 




BP 


MOVE 




OB 






RS 




; Return 



Theory of Operation: 

SWEET 16 execution mode begins with a subroutine call to SW16. All 6502 registers are saved at this time, to be restored when a SWEET 16 RTN instruction returns control to 
the 6502. If you can tolerate indefinate 6502 register contents upon exit, approximately 30 usee may be saved by entering at SW16 + 3. Because this might cause an inadvertant 
switch from Hex to Decimal mode, it is advisable to enter at SW16 the first time through. 

After saving the 6502 registers, SWEET 16 initializes its PC (R15) with the subroutine return address off the 6502 stack. SWEET 16's PC points to the location preceding the next 
instruction to be executed. Following the subroutine call are l-,2-, and 3-byte SWEET 16 instructions, stored in ascending memory like 6502 instructions, the main loop at SW16B 
repeatedly calls the 'execute instruction' routine to execute it. 

Subroutine SW16C increments the PC (R15) and fetches the next opcode, which is either a register op of the form OP REG with OP between 1 and 15 or a non-register op of the 
form OP with OP between and 13. Assuming a register op, the register specification is doubled to account for the 3 byte SWEET 16 registers and placed in the X-reg for 
indexing. Then the instruction type is determined. Register ops place the doubled register specification in the high order byte of R14 indicating the 'prior result register' to subsequent 
branch instructions. Non-register ops treat the register specifcation (right-hand half-byte) as their opcode, increment the SWEET 16 PC to point at the displacement byte of branch 
instructions, load the A-reg with the 'prior result register' index for branch condition testing, and clear the Y-reg. 

When is an RTS really a JSR? 

Each instruction type has a corresponding subroutine. The subroutine entry points are stored in a table which is directly indexed into bythe opcode. By assigning all the entries to a 
common page, only a single byte to address need be stored per routine. The 6502 indirect jump might have been used as follows to transfer control to the appropriate subroutine. 



LDA #ADRH ; High-order byte. 

STA IND+1 

LDA OPTBL,X ; Low-order byte. 

STA IND 

JMP (IND) 



To save code, the subroutine entry address (minus 1) is pushed onto the stack, high-order byte first. A 6502 RTS (return from subroutine) is used to pop the address off the stack 
and into the 6502 PC (after incrementing by 1). The net result is that the desired subroutine is reached by executing a subroutine return instruction! 

Opcode Subroutines: 

The register op routines make use of the 6502 'zero page indexed by X' and 'indexed by X direct' addressing modes to access the specifiedregisters and indirect data. The 'result' 
of most register ops is left in the specified register and can be sensed by subsequent branchinstructions, since the register specification is saved in the high-order byte of R14. This 
specification is changed to indicate R0 (ACC)for ADD and SUB instructions and R13 for the CPR (compare) instruction. 

Normally the high-order R14 byte holds the 'prior result register' index times 2 to account for the 2-byte SWEET 16 registers and the LSB is zero. If ADD, SUB, or CPR 
instructions generate carries, then this index is incremented, setting the LSB. 

The SET instruction increments the PC twice, picking up data bytes in the specified register. In accordance with 6502 convention, the low-order data byte precedes the high-order 
byte. 

Most SWEET 16 non-register ops are relative branches. The corresponding subroutines determine whether or not the 'prior result' meets thespecified branch condition and if so, 
update the SWEET 16 PC by adding the displacement value (-128 to +127 bytes). 

The RTN op restores the 6502 register contents, pops the subroutine return stack and jumps indirect through the SWEET 16 PC. This transferscontrol to the 6502 at the 
instruction immediately following the RTN instruction. 

The BK op actually executes a 6502 break instruction (BRK), transferring control to the interrupt handler. 

Any number of subroutine levels may be implemented within SWEET 16 code via the BS (Branch to Subroutine) and RS (Return from Subroutine)instractions. The user must 
initialize and otherwise not disturb R12 if the SWEET 16 subroutine capability is used since it is utilized as the automatic return stack pointer. 

Memory Allocation: 

The only storage that must be allocated for SWEET 16 variables are 32 consecutive locations in page zero for the SWEET 16 registers, fourlocations to save the 6502 register 
contents, and a few levels of the 6502 subroutine return address stack, if you don't need to preserve the 6502 register contents, delete the SAVE and RESTORE subroutines and 
the corresponding subroutine calls. This will free the four page zero locations ASAV, XSAV, YSAV, and PSAV. 

User Modifications: 

You may wish to add some of your own instructions to this implementation of SWEET 16. If you use the unassigned opcodes $0E and $0F, remember that SWEET 16 treats these 
as 2-byte instructions. You may wish to handle the break instruction as a SWEET 16 call, saving two bytes of code each time you transfer into SWEET 16 mode. Or you may wish 
to use the SWEET 16 BK (break) op as a CHAROUT' call in the interrupt handler. You can perform absolute jumps within SWEET 16 by loading the ACC (R0) with the address 
you wish to jump to (minus 1) and executing a ST Rl 5 instruction. 

Notes from Apple II System Description 

This is kind of old stuff, but I ran across the issue of Byte that had theApple II system description by Steve Wozniak: 

00 1 Return to 6502 mode 

01 2 Branch Always 
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02 


2 


Branch no Carry 


03 


2 


Branch on Carry 


04 


2 


Branch on Positive 


05 


2 


Branch on Negative 


06 


2 


Branch if equal 


07 


2 


Branch not equal 


08 


2 


Branch on negative 1 


09 


2 


Branch not negative 1 


OA 


1 


Break to Monitor 


0B-0F 


1 No operation 


1R 


3 


R<-2 byte constant (load register immediate) 


2R 


1 


ACC<-R 


3R 


1 


ACC->R 


4R 


1 


ACC<-@R, R<-R+l 


5R 


1 


ACC->@R, R<-R+l 


6R 


1 


ACC<-@R double 


7R 


1 


ACC->@R double 


8R 


1 


R<-R-l, ACC<-@R (pop) 


9R 


1 


R<-R-l, ACC-X3R 


AR 


1 


ACC<-@R(pop) double 


BR 


1 


compare ACC to R 


CR 


1 


ACC<-ACC+R 


DR 


1 


ACC<-ACC-R 


ER 


1 


R<-R+l 


FR 


1 


R<-R-l 


notes 







1 . All braches are followed by a 1 byte relative displacement. Works identically to 6502 branches. 

2. Only ADD.SUB, and COMPARE can set carry 

3. Notation: 

• R = a 16 bit "Register" operand designation, one of 16 labelled to 15 (decimal), to F (hexidecimal) 

• ACC = register operand R0 

• @R = indicrect reference, using the register R as the pointer 

• <-, -> = assignment of values 

4. Length of instructions: Branches are always two bytes: opcodes followed by relative displacement. Load register immediate (1R) is three bytes: the hexadecimal opcode 10 
to IF followed by the 2 byte literal value of a 16 bit number. All other instructions are one byte in length. 

And from that issue of Byte (Apr 1977, 1 think)...some words from the Wozhimself. Retyped without permission. 



Sweet 16 S-C Macro Assembler Text 

SWEET- 16 is a powerful programming tool developed by Steve Wozniak inthe early days of Apple. Chances are that you do have this tool, whether you know it or not. The 
standard version is hidden awayinside the Integer BASIC system. If you have Integer BASIC on yourmother board, or in a firmware card, or in a 16K RAM card, then youhave 
SWEET-16. 1 have included a commented source file of SWEET-16on your S-C MACRO ASSEMBLER II disk, so you can assemble your owncopy if you wish. 

SWEET- 16 is really a language, just like 6502 machine language,BASIC, Pascal, FORTRAN. It looks a lot like a machine language for acomputer that does not really exist, so 
"Woz" has called it his"dream machine". You can read all about it in an old issue of B YTEMagazine (November, 1977, pages 150-159): "SWEET-16 — The 6502 Dream 
Machine". Another article you may want to find is " SWEET- 16Revisited", by Charles F. Taylor, in MICRO-The 6502/6809 Journal.January, 1982, pages 25-42. 

The beauty of SWEET-16 is in its ability to perform 16-bit arithmeticand data moves using automatically updated address pointers. And toadd icing to the cake, most of the 
instructions are only one bytelong! You can write extremely compact code, if you are willing topay the price of slower execution. (A typical program will take halfas many bytes, 
but ten times longer to execute.) 

Does anyone really use SWEET-16? Yes, in a big way. I used it inseveral places inside the early versions of S-C Assembler II. TheTED/ASM assembler, and all its descendants 
(including DOS Tool Kit,TED 11+, Big Mac, Merlin, and others) use SWEET-16 heavily. Severalof the programs in the Apple Programmer's Aid ROM use SWEET-16. 
including the Integer BASIC Renumber/Append program. 

The standard version of SWEET-16 is invoked by the 6502 instruction"JSR $F689"; the bytes immediately following contain opcodes forSWEET-16 to process. SWEET-16 
opcodes will be executed until the"RTN" opcode, which returns to 6502 mode. 

Programming Model 

The SWEET-16 "machine" has sixteen 16-bit registers (R0-R15). R0 isactually the two memory bytes at $0000 and $0001. The next two bytesare called Rl; R15 is stored in 
$()()1E and $001F. Several of theregisters have special functions: R0 is used as an accumulator (likethe 6502's A-register); R12 is the subroutine return stack pointer;R13 
receives the results of comparisons; R14 is a status register;R15 is the program address counter. 

SWEET-16 REGISTERS 



Register 6502 Address Purpose 

$00,01 Accumulator 

1 $02,03 General 

2 $04,05 General 



11 $16,17 General 

12 $18,19 Subroutine Stack Pointer 

13 $1A, IB Difference of comparands 

14 $1C,1D Status 

15 $1E,1F Program address 



There are two general types of opoodes recognized by SWEET- 16:register and non-register opcodes. The non-register opcodes all havethe form "Ox", where x is a hexadecimal 
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digit from through C.(Opcodes 0D, 0E, and OF are not used.) These opcodes are used forrelative branches, subroutine call and return, and to leave SWEET- 16.The register 
opcodes have the format "xR", where x is a hexadecimaldigit from through F, and R is a register number (0-F). 

SWEET-16 OPCODES 

Non-Register Opcodes: RTN, BK, and RS are one byte opcodes. Therest have a second byte which is a relative address, similar tothe relative branch addresses used in 6502 
opcodes. The conditionalbranches use status bits found in R14. 



00 




RTN 




Return 


to 6502 code. 




01 


ea 


BR 


addr 


Unconditional Branch . 




02 


ea 


BNC 


addr 


Branch 


if Carry=0. 




03 


ea 


BC 


addr 


Branch 


if Carry=l . 




04 


ea 


BP 


addr 


Branch 


if last result 


positive . 


OS 


ea 


BM 


addr 


Branch 


if last result 


negative . 


06 


ea 


BZ 


addr 


Branch 


if last result 


zero . 


07 


ea 


BNZ 


addr 


Branch 


if last result 


non-zero . 


08 


ea 


BM1 


addr 


Branch 


if last result 


= -1 . 


09 


ea 


BNM1 


addr 


Branch 


if last result 


not -1. 


OA 




BK 




Execute 


6502 BRK instruction. 


0B 




RS 




Return 


from SWEET-16 


subroutine 


oc 


ea 


BS 


addr 


Call SWEET-16 subroutine. 



Register Opcodes: The SET opcode uses three bytes, to load a 16-bitimmediate value into a register. All the rest of the registeropcodes only use one byte. ("MA" = memory 
address) 



In lo hi SET n, value Rn < — value. 

2n LD n R0 < — (Rn) . 

3n ST n Rn < — (RO) . 

4n LD @n MA = (Rn) , ROL < — (MA) , 

Rn < MA+1, R0H < — . 

5n ST @n MA = (Rn) , MA < — (ROL) , 

Rn < — MA+1. 

6n LDD @n MA = (Rn) , R0 < — (MA, MA+1), 

Rn < — MA+2. 

7n STD @n MA = (Rn) , MA, MA+1 < — (R0), 

Rn < — MA+2. 

8n POP @n MA = (Rn)-l, ROL < — (MA), 

R0H < — 0, Rn < — MA. 

9n STP @n MA < — (Rn)-l, (MA) < — ROL, 

Rn < — MA. 

An ADD n R0 < — (R0) + (Rn) . 

Bn SUB n R0 < — (RO) - (Rn) . 

Cn POPD @n MA = (Rn)-2, MA, MA+1 < — R0, 

Rn < MA. 

Dn CPR n R13 < — (R0) - (Rn) , 

R14 < — status flags. 
En INR n Rn < — (Rn) + 1. 

Fn DCR n Rn < — (Rn) - 1. 



The S-C Assembler II includes all of the SWEET-16 opcodes, in theformats shown above. You can write programs which mix both 6502 codeand SWEET-16 together in any 
combination. 

Here are a few examples which illustrate programming in SWEET-16. 



F689- 
0A00- 
0234- 

0800- 
0803- 
0806- 
0809- 
080C- 
080D- 
080E- 
0810- 



20 89 F6 

10 00 00 

11 00 OA 

12 34 



02 



51 

F2 

07 FC 



00 

SYMBOL TABLE 
0A00- BLOCK 
0800- CLEAR 
.1=080C 
0234- N 

F689- SWEET. 16 
0000 ERRORS IN 



F689- 
0A00- 
0A80- 
0023- 

0800- 20 89 F6 
0803- 11 00 OA 
0806- 12 80 OA 



1000 * 

1010 * CLEAR A BLOCK OF MEMORY 

1020 * 

1030 SWEET. 16 . EQ $F689 

1040 BLOCK .EQ $A00 

1050 N .EQ $234 

1060 * 

1070 CLEAR JSR SWEET. 16 

1080 SET 0,0 FOR CLEARING WITH 

1090 SET 1, BLOCK ADDRESS OF BLOCK 

1100 SET 2,N # BYTES TO CLEAR 

1110 .1 ST 81 STORE IN BLOCK 

1120 DCR 2 

1130 BNZ .1 NOT FINISHED YET 

114 RTN 



ASSEMBLY 
1000 *- 
1010 * 
1020 *- 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 



MOVE A BLOCK OF MEMORY 



SWEET. 16 
SOURCE 
DESTIN 
N 



.EQ $F689 

.EQ $A00 

.EQ $A80 

.EQ $23 



JSR SWEET. 16 
SET 1, SOURCE 
SET 2, DESTIN 



ADDRESS OF SOURCE BLOCK 
ADDRESS OF DESTINATION BLOCK 
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0809- 13 23 00 


1110 


SET 


3,N 


# BYTES TO MOVE 


080C- 41 


1120 .1 


LD 


81 


GET BYTE FROM SOURCE 


080D- 52 


1130 


ST 


02 


STORE IN DESTINATION 


080E- F3 


1140 


DCR 


3 




080F- 07 FB 


1150 


BNZ 


. 1 


NOT FINISHED YET 


0811- 00 


1160 


RTN 






SYMBOL TABLE 










0A80- DESTIN 










0800- MOVE 










. 01=08CC 










0023- N 










0A00- SOURCE 










F689- SWEET. 16 










0000 ERRORS IN 


ASSEMBLY 

















1000 


















1010 




RENUMBER S-C 


ASSEMBLER SOURCE CODE 










1020 










F689- 








1030 


SWEET. 


16 


. EQ $F689 


004C- 








1040 


HI MEM 




. EQ $4C, 


4D 


00CA- 








1050 


PP 




.EQ $CA,CB 










1060 


















1070 


RENUMBER 






0800- 


20 


89 


F6 


1080 




JSR 


SWEET. 16 




0803- 


11 


CA 


00 


1090 




SET 


1, PP 


PP HAS ADDRESS OF SOURCE CODE 


0806- 


61 






1100 




LDD 


ei 


GET ADDRESS OF SOURCE CODE 


0807- 


31 






1110 




ST 


i 


... IN Rl 


0808- 


12 


OA 


00 


1120 




SET 


2, 10 


INCREMENT =10 


080B- 


13 


4C 


00 


1130 




SET 


3 , HIMEM 


HIMEM HAS ADDR OF END OF SOURCE 


080E- 


63 






1140 




LDD 


63 


GET ADDRESS IN HIMEM 


080F- 


33 






1150 




ST 


3 


... IN R3 


0810- 


14 


DE 


03 


1160 




SET 


4, 990 


START=990 (1ST LINE WILL BE 100 


0813- 


21 






1170 


. 1 


LD 


1 


TEST IF FINISHED 


0814- 


D3 






1180 




CPR 


3 




0815- 


03 


0E 




1190 




BC 


.2 


YES 


0817- 


41 






1200 




LD 


ei 


GET # BYTES IN THIS SOURCE LINE 


0818- 


35 






1210 




ST 


5 


. . . INTO R5 


0819- 


24 






1220 




LD 


4 


GET SEQUENCE NUMBER 


081A- 


A2 






1230 




ADD 


2 


ADD INCREMENT 


081B- 


34 






1240 




ST 


4 


. . . INTO R4 AGAIN 


081C- 


71 






1250 




STD 


ei 


. . . AND ALSO INTO SOURCE LINE 


081D- 


Fl 






1260 




DCR 


i 


BACK UP POINTER 


081E- 


Fl 






1270 




DCR 


i 




081F- 


Fl 






1280 




DCR 


i 




0820- 


21 






1290 




LD 


i 


ADD LENGTH OF LINE TO POINTER 


0821- 


A5 






1300 




ADD 


5 




0822- 


31 






1310 




ST 


1 


POINT AT NEXT SOURCE LINE 


0823- 


01 


EE 




1320 




BR 


. 1 




0825- 


00 






1330 


. 2 


RTN 






0826- 


60 






1340 




RTS 







SYMBOL TABLE 

004C- HI HEM 

00CA- PP 

0800- RENUMBER 

.01-0813, .02-0825 

F689- SWEET. 16 

0000 ERRORS IN ASSEMBLY 

Last page update: March 21, 2004. 
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